home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / mus / misc / mp32html.lha / MP3-2-HTML / Install < prev    next >
Encoding:
Text File  |  2000-08-26  |  3.7 KB  |  169 lines
  1. ; MP3-2-HTML v2.x Installer Script (Both Versions)
  2. ; (C) 2000 Gareth Griffiths <gazchap@btinternet.com>
  3. ; Only for distribution in the MP3-2-HTML archive.
  4.  
  5. ;------ Define Procedures ------;
  6.     (procedure P_CLI-install
  7.         (complete 25)
  8.         (set @default-dest
  9.             (askdir
  10.                 (prompt "Where do you want to install MP3-2-HTML?\n\nA drawer named 'MP3-2-HTML' will be created.")
  11.                 (help @askdir-help)
  12.                 (default "Workbench:Utilities")
  13.             )
  14.         )
  15.         (set #default-dest
  16.             (tackon @default-dest "MP3-2-HTML/")
  17.         )
  18.         (makedir #default-dest
  19.             (infos)
  20.         )
  21.         (complete 50)
  22.         (working "Installing executable...")
  23.         (copyfiles
  24.             (prompt "Installing executable...")
  25.             (help @copyfiles-help)
  26.             (source "bin/2.4cli")
  27.             (dest #default-dest)
  28.             (newname "MP3-2-HTML")
  29.             (infos)
  30.         )
  31.         (complete 75)
  32.         (working "Installing documentation...")
  33.         (copyfiles
  34.             (prompt "Installing documentation...")
  35.             (help @copyfiles-help)
  36.             (source "docs/2.4cli.guide")
  37.             (dest #default-dest)
  38.             (newname "MP3-2-HTML.guide")
  39.             (infos)
  40.         )
  41.         (complete 100)
  42.     )
  43.  
  44.     (procedure P_MUI-install
  45.         (complete 25)
  46.         (set @default-dest
  47.             (askdir
  48.                 (prompt "Where do you want to install MP3-2-HTML?\n\nA drawer named 'MP3-2-HTML' will be created.")
  49.                 (help @askdir-help)
  50.                 (default "Workbench:Utilities")
  51.             )
  52.         )
  53.         (set #default-dest
  54.             (tackon @default-dest "MP3-2-HTML/")
  55.         )
  56.         (makedir #default-dest
  57.             (infos)
  58.         )
  59.         (complete 50)
  60.         (working "Installing executable...")
  61.         (copyfiles
  62.             (prompt "Installing executable...")
  63.             (help @copyfiles-help)
  64.             (source "bin/2.3mui")
  65.             (dest #default-dest)
  66.             (newname "MP3-2-HTML")
  67.             (infos)
  68.         )
  69.         (complete 75)
  70.         (working "Installing documentation...")
  71.         (copyfiles
  72.             (prompt "Installing documentation...")
  73.             (help @copyfiles-help)
  74.             (source "docs/2.3mui.guide")
  75.             (dest #default-dest)
  76.             (newname "MP3-2-HTML.guide")
  77.             (infos)
  78.         )
  79.         (complete 100)
  80.     )
  81.  
  82.     (procedure P_BOTH-install
  83.         (complete 15)
  84.         (set @default-dest
  85.             (askdir
  86.                 (prompt "Where do you want to install MP3-2-HTML?\n\nA drawer named 'MP3-2-HTML' will be created.")
  87.                 (help @askdir-help)
  88.                 (default "Workbench:Utilities")
  89.             )
  90.         )
  91.         (set #default-dest
  92.             (tackon @default-dest "MP3-2-HTML/")
  93.         )
  94.         (makedir #default-dest
  95.             (infos)
  96.         )
  97.         (complete 30)
  98.         (working "Installing executables...")
  99.         (copyfiles
  100.             (prompt "Installing CLI executable...")
  101.             (help @copyfiles-help)
  102.             (source "bin/2.4cli")
  103.             (dest #default-dest)
  104.             (newname "MP3-2-HTML_CLI")
  105.             (infos)
  106.         )
  107.         (complete 45)
  108.         (copyfiles
  109.             (prompt "Installing MUI executable...")
  110.             (help @copyfiles-help)
  111.             (source "bin/2.3mui")
  112.             (dest #default-dest)
  113.             (newname "MP3-2-HTML_MUI")
  114.             (infos)
  115.         )
  116.         (complete 60)
  117.         (working "Installing documentation...")
  118.         (copyfiles
  119.             (prompt "Installing CLI documentation...")
  120.             (help @copyfiles-help)
  121.             (source "docs/2.4cli.guide")
  122.             (dest #default-dest)
  123.             (newname "MP3-2-HTML_CLI.guide")
  124.             (infos)
  125.         )
  126.         (complete 75)
  127.         (copyfiles
  128.             (prompt "Installing MUI documentation...")
  129.             (help @copyfiles-help)
  130.             (source "docs/2.3mui.guide")
  131.             (dest #default-dest)
  132.             (newname "MP3-2-HTML_MUI.guide")
  133.             (infos)
  134.         )
  135.         (complete 100)
  136.     )
  137.  
  138. ;------ Main installation ------;
  139.  
  140. (message "Welcome to the MP3-2-HTML installation script.\n\n"
  141.             "This script installs MP3-2-HTML v2.x to your system. You can "
  142.             "choose to install the CLI or MUI version, or both.\n\n"
  143.             "MP3-2-HTML is ©2000 Gareth 'GazChap' Griffiths."
  144. )
  145.  
  146. (set #vertoinstall
  147.     (askchoice
  148.         (prompt    "Which version of MP3-2-HTML do you want to install?")
  149.         (help        "You can choose to install the CLI or MUI version of "
  150.                     "MP3-2-HTML here. Or you can install both.")
  151.         (choices    "2.4 CLI" "2.3 MUI" "Both")
  152.         (default    2)
  153.     )
  154. )
  155.  
  156. (if (= #vertoinstall 0)
  157.     (P_CLI-install)
  158. )
  159.  
  160. (if (= #vertoinstall 1)
  161.     (P_MUI-install)
  162. )
  163.  
  164. (if (= #vertoinstall 2)
  165.     (P_BOTH-install)
  166. )
  167.  
  168. (exit)
  169.